home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
GOSMACS.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
3KB
|
36 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 14:44:24 1992
;;; from file /u/jwz/emacs19/lisp/emulators/gosmacs.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴!¼é┬┬ç" [boundp non-gosmacs-binding-alist nil] 2)
(fset 'set-gosmacs-bindings #[nil "└┴!ëç" [rebind-and-record (("" compile) ("" save-buffers-kill-emacs) (" " insert-file) ("" save-some-buffers) ("" next-error) ("" switch-to-buffer) ("" insert-file) ("" undo) ("" find-file-other-window) ("" shrink-window) ("!" shell-command) ("d" delete-window) ("n" gosmacs-next-window) ("p" gosmacs-previous-window) ("z" enlarge-window) ("" scroll-one-line-up) ("" save-buffers-kill-emacs) ("!" line-to-top-of-window) ("(" backward-paragraph) (")" forward-paragraph) ("?" apropos) ("h" delete-previous-word) ("j" indent-sexp) ("q" query-replace) ("r" replace-string) ("z" scroll-one-line-down) ("" suspend-emacs)) non-gosmacs-binding-alist] 2 "\
Rebind some keys globally to make GNU Emacs resemble Gosling Emacs.
Use \\[set-gnu-bindings] to restore previous global bindings." nil])
(fset 'rebind-and-record #[(bindings) "└\n½á\n@ë@A@╞\"D B╚\"ê+\nAë¼` ƒ)ç" [nil old bindings this key newdef lookup-key global-map global-set-key] 5 "\
Establish many new global bindings and record the bindings replaced.
Arg is an alist whose elements are (KEY DEFINITION).
Value is a similar alist whose elements describe the same KEYs
but each with the old definition that was replaced,"])
(fset 'set-gnu-bindings #[nil "└ !ç" [rebind-and-record non-gosmacs-binding-alist] 2 "\
Restore the global bindings that were changed by \\[set-gosmacs-bindings]." nil])
(fset 'gosmacs-previous-window #[nil "└┴ !ç" [select-window previous-window] 2 "\
Select the window above or to the left of the window now selected.
From the window at the upper left corner, select the one at the lower right." nil])
(fset 'gosmacs-next-window #[nil "└┴ !ç" [select-window next-window] 2 "\
Select the window below or to the right of the window now selected.
From the window at the lower right corner, select the one at the upper left." nil])
(fset 'scroll-one-line-up #[(&optional arg) "└ «ü┬!ç" [scroll-up arg 1] 2 "\
Scroll the selected window up (forward in the text) one line (or N lines)." "p"])
(fset 'scroll-one-line-down #[(&optional arg) "└ «ü┬!ç" [scroll-down arg 1] 2 "\
Scroll the selected window down (backward in the text) one line (or N)." "p"])
(fset 'line-to-top-of-window #[nil "└┴!ç" [recenter 0] 2 "\
Scroll the selected window up so that the current line is at the top." nil])